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1 . 0 PROGRjyyi OVERVIEW 



BUILD xs the name of the routine which "customizes" DIAL-MS for 
a gxven configuration. BUILD determines what devices a user 
has and creates a set of l/o routines for DIAL-MS^ to use At 
present, BUILD resides in blocks 310, 345, 365, and 366 of the 
DIAL~MS system. 



BUILD is composed of three separate logical components. The 
first xs the actual code that decides which devices are present 
and constructs the necessary tables for the I/O controller to 
use. The second component is the I/O controller whxch dxspatch.s 
the calls for operations to the correct handlers with any neces- 
sary modifications made in the data. The individual I/O handlers 
are the third logical part. Each I/O handler operates just one 
aevxce, and each is independent of the controller and other rou- 
tines. The three components of BUILD are described in the follow 
mg section. 

2. INITIALIZATION 

The initialization phase resides at block 310 on the dial-MS 
system. Note that this is part of the Editor (locations ^-377) 
Tne DIAL-MS Editor requires that the pointers to the read and 
wrxte routines reside at locations 21 and 22, respectively 
Therefore, while the initxalization phase starts at location 
m(} xn LINCmode it immediately jumps past the pointers at 21 
and 22. It then reads in the prototype I/o controller located 
at block 345, plus all the handlers for all the possible devices 
(LINCtapo and RS^18, DF32 and RK08 disks) which are located at 
blocks 365 and 366 of the DIAL-MS tape. Initially the handlers 
and controllers are set up to support only LiNctape, with the 
LINCtape handler residing at 7600 of field 1. The program then 
checks for the various devices by device lOT's. If the device 
IS present, the program alters the device table slightly to 
include these new unit codes. it will also move the new second- 
ary device handler to location 7400 of field 1 if another device 
in addition to LINCtape is present. Locations 74)3^-7777 of 
field 1 are then written onto tape 0. Thus, the system now knows 
that blocks 322 and 323 of LINCtape 0 contain all the necessary 

"""^ '° '° ^-'^ ti™- Blocks 

300-467 of tape 0 (with the exception of the index) aro copied 
to blocks 0-167 of logical unit 100, providing 100 is not on 
1LAP6-DIAL-MS is commonly referred to as DIAL-f<IS . 
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LINCtape (logical unit 100 is discussed in the I/O controller 
section) . The system then does a standard bootstrap of the 
DIAL-MS Editor. 

I 

3, I/O CONTROLLER 

The I/O controller is essentially the dispatcher for DIAL-MS. 
Calls are made to read or write operations, and the controller 
passes this information on to the correct handler. The con- 
troller is a field independent routine (may be located in 
any field and called from any field) . The calling sequences 
are discussed at length in the DIAL-MS manual. Inside the 
controller, there exists a table located at 7300 which con- 
tains the values of the units that are available, where the 
routines are to do the operations, and the amount to add (or 
subtract) from the block numbers when going from one device 
to another. This table is commonly referred to as the MTABLE- 
Each unit is given three words in this table. The first word 
is the actual unit number. The second is the calling address 
of the read handler for this unit. The last word is the num- 
ber of blocks to add onto the user's calling argument to transform 
it correctly to the physical block nximber on the device. A minus 
unit number indicates the end of the table. In prototype form, 
the table contains eleven units. Eight of these are the LINC- 
tapns (units 0-7) ; first word contains the unit number, second 
word contains 7630, the read routine entry tioint, the third 
word contains 0 because there is no correction necessary. In 
addition, there are three more units; namely, 100, 110 and 111. 
100 is used internally to describe the DIAL-MS system. Thus, 
if you are running a tape system, DIAL-MS resides on blocks 300- 
367 of unit 0. The Editor resides on block 0 of unit 100 so 
the entry point in the table is 100 (unit #100) , 7630 (pointer 
to the LINCtape routine) , 300 (number of blocks to add to 
unit 100 calls to make it come out to the correct LINCtape 
blocks). This is how DIAL-MS can work off any device. The 
system is always on device 100; the MTABLE tells it where the 
device and block number really are. Unit 110 is the source 
unit? its first block is also 0. Thus, to reference block 3 
of the source, it is block 3 of unit 110. The MTABLE tells the 
controller how to transform these numbers into physical device 
calls. Unit 111 is the binary unit (the first block of it is 
also 0) , Only these three logical units are presently 
implemented; more can be added without any trouble. 
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The disk units are 1J3-17, with the pointer to 743i? (this is where the 
disk routine will be) . Note that units 2^-45 do not appear in the 
table if the user has multiple RK08s. The controller will look for 
units 1^-17 if any unit between 20 and 47 is given as an argument to 
the controller. Note that it is trivial to make the values for the 
disk units those for the tape units, and vice versa. All that is 
necessary is to change the pointers to the handler locations. At 
present, only two handlers are in core at any one time (LINCtape plus 
perhaps a disk handler) . This can easily be changed to permit rr.ore 
handlers to be present if a user has a special device he wants to use. 

An important point of interest about the I/O controller is that the 

controller leaves the read address of the handler just used at loca- 
tion 7770 and the number of blocks to add to any calling sequence 
in location 7771. This is necessary because some program (e.g., the 
Loader) may destroy the I/O controller, and then call the handlers 
directly, rather than going through the controller. 

The only other routines not discussed are the bootstrap and the MO^m 
routines. The bootstrap merely reads in blocks 30^-3^7 of the Editor 
off device 100 and jumps to 4^21, instead of to 40213. Juir.ping to 
4020 would cause the system to reload the I/O routines. The MOVE 
routine is so trivial that it will not be discussed here. 

4. I/O HANDLERS 

The I/O handlers are the low level routines of DIAL-MS. They control 

the physical devices. Though they may vary greatly in design and 
structure, they all have several things in common : 

a. They are all page independent (can be randomly located 
on any page in core and still function) . 

b. No outside routines or constants are needed. 

c. They are field independent, but may be called only 
from the field in which they presently reside, 

d. Only location 30 through 16 7 of the page roav be 
used by them. " ' ' 

e. The read entry point is at 30 of the page and the 
write entry point is at 32 of the page . " 

^' S''the^T/n^,,rr^??^ is similar to the calling sequence 
llth^r- l( °°"troller, but the arguments are in-line, 
rather than pointed to by a pointer. 
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g. There is no code at 150 or 151 of the page so that 
if they are ever located in 1600, no code will be 
over the disk data break locations. 

The I/O handlers also share one other feature. They only look 
at the rightmost digit of the calling unit, thus insuring the 
device independence of the system. While the physical nature 
of each handler is important, only the flow charts are neces- 
sary to understand each one. They are basically straight- 
forward code. At present, there are four handlers implemented: 
LINCtape and RFjZfS, DF32, and RKjZfS, and disks. Any other device 
may be supported by merely writing a handler for it which con- 
forms to the above standards. 

5.0 FLOW DIAGRAM (Attached) 
6.0 PROGRAM LISTING (Attached) 



1 


L 


DO AN I/O PRESET 



SET DATA FiELO TO 7 
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KCAD IN PROrOfYPf^ 
!/0 CONfROLLtR iNJO 
7000 OF FitLD ! 



READ fN RF08 AND 
LINC TAPE ROUTINES 
!NTO 7400 OF FfELD I 



READ IN RK08 AND DF32 
ROUTINtS INTO 6400 OF 
FIELD ) 
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CLEAR RK08 STATUS 
REGISTER 



SEND TEST PATTERN TO 
RK08 REGISTER 



READ BACK RK08 
REGISTER 



EQUAL WHAT 



YES: RK08 PRESENT 





NO: 

RK08 NOT PRESENT 


CLEAR KF08 RfcOISTtRS 


i 








SLND TEST PATTIRN 
ro RFO« 





SET DIAL SYSTEM 
POINTER 



SET SOURCE POINTER 



CALL ISETS (370) 



CALL WH n/t)) 



fi'^IA8L/>H UJSr UNJfj 
10 - 15 



CALL ISETU 
CALL JSETU 
CALL ISETU 



MOVE RK08 ROUriNE 
TO 7430 OF FIELD I 



CALL IMOVE (RK08) 



C 
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READ SACK RF08 
REGISTER 




YES: 

WE HAVE AN 
RF08 CONTROLLER 



DO WE HAVE 1 DISK 



NO: RF08 IS NOT 
PRESENT 



CLEAR DF32 STATUS 
REGISTER 



SEND TEST PATTERN 
TO DF32 REGISTER 



READ IN DF32 
REGISTER 




NO: FINISH SETTING 
UP OF SYSTEM 



•c 



IDONE 



YES: WE HAVE AT 
LEAST ONE DF32 



C 



WRITE OUT aUn.T UP 
TABLES, CONTROLLER 
AND }MND lERS fkOM 
7000 ~ 7777 OF FIfcLD 
I TO SLOCKS 322,323 
OF TAPE 0 



2 



1 CALL ICHECK {77) 


1 




YES: SET UP DIAL 
SYSTEM, SOURCE, 
BINARY AND UNITS 
10 - 11 AS WITH THE 
RK08. 


CALL IMOVE (RF08) 
CALL ISETD (300) 
CALL ISETS (370) 
CALL ISETB (370) 
CALL ISETU 






CHECK FOR SECOND 
DISK 



CALL ICHECK (177) 



CHECK FOR THIRD 
DISK 



CALL ICHECK (277) 



CALL ISETU 



CHECK FOR FOURTH 
DISK 



c 



CALL ICHECK (377) I 

i 

CALL ISETU 



c 



IIDONR 



GET mE DIAL SYSTEM 
UNIT ADDRESS 




NO: HAVE DISK 



YES: ONLY LING TAPE 
PRESENT. NO FURTHER 
PROCESSING NECESSARY 



■0 



START SYSTEM BY 
JUMPING TO 7777 OF 
FIELD 1 IN 8 MODE 
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0 





DB2 PRESENT. MOVE 
DF32 ROUTINES TO 
7400 OF FIELD ] 


t CALL IMOVE (DF32) 






SET SYSTEM TO START 
AT BLOCK 0 OF THE 
DF32 


I CALL ISETD (0) 






SET SOURCE TO START 
AT 70 OF TVtE DF32 


1 CALL fSETS (70) 





LOAD ADDi^ESS OF 
SECOND DF32 INTO 
STATUS REGISTER 




c 



SECOND NO 
DF32 THERE 
? 



YES: SET BINARY TO 
BLOCK 270 OF THE 

DF32's 



< 



CALL IS6TB (270) 



IDONE 



D 
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DISK INITIALIZER 



READ IN INDEX FROM 
BLOCK 46 OF UNIT 
100 



COPY 170 BLOCKS 
FROM BLOCK 300 
UNIT 0 TO OOF UNIT 
100 



WRITE BACK PRESERVED 
INDEX 



c 
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c 



IMOVE 



3 



C 



3 



GET THE CALLING 
ADDRESS 



CALL THE SYSTEM 
MCV E ROUTINE TO 
MOVE 200 WORDS 
FROM THE CALLING 
ADDRESS TO 7400 OF 
FIELD } . 



C 



RETURN 



YES; ALL DONE 



C 



SEND CALLING 
ARGUMENT TO RF08 
CONTROLLER 



READ IN RF 


38 STATUS 


REGISTER 






NO: RETURN TO CALLER 



C 



GET THE ARGUMENT 



STORE 7430 IN 
ADDRESS PORTION OF 
UNIT 100 



PLACE ARGUMENT IN 
BLOCK NUMBER POR- 
TION OF UNIT 100 



RETURN 



3 



8 



f ISETS J 

T 

SAME AS ISETD 
EXCEPT ALL DATA 
REFERENCES UNIT 1 10 
RATHER THAN 100 



c 



ism 



T 



SAME AS SSETD EXCEPT 
ALL DATA R£FERENCES 
UNIT in RATHER 
THAN UNIT 100 



c 



1 



3 



C 



CALL ISETU2 
CALL ISETU2 



c 



RETURN 



c 



J 



SAVE DATA 
WE WILL Kt 
WE CAME 


FIELD SO 
MOW WHERE 
-ROM 






GET PRESENT 
iNSTRUCTlON FIELD 
SO WE KNOW WHERE WE 
ARE 






SETCBLOCK TO 
INDICATE A READ 



ISETU2 



UNIT NUMBER 
INITIALLY SET TO 7, 
SO INCREMENTING 
IT WILL PRODUCE A 
10, THE FIRST DISK 
UNIT 



J 



INCREMENT UNIT 
NUMBER COUNTER 



GET UNIT NUMBER 
AND STORE IN NEXT 
POSITION ON UNIT 
TABLE 






STORE 7430 IN NEXT 
TABLE ENTRY 






STORE 0 IN NEXT 
TABLE ENTRY 






END TABLE WITH 
A 7777 


. 3 





c 




YES MUST BE WRITE 
, iNSTRUCTiON 



1 Clii.f }CK i 






», 


SAVE CALLING 
ADDRESS {7774 + 7775) 






ZERO OUT 7774 
AND 7775 
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SAVE IN C 
NUMBER 


)UR UNIT 






SEARCH MTABLE FOR 
UNIT MATCH 




7770 - (MTASLE + 1) 
ENTRY + 2*CBLOCK 
{CALCULArt ROUTINE 
ADDRESS) 



7775 - (MTABLE +2) 
ENTRY (GET BLOCK 
NUMBER CORRECTION) 




READ IN I/O ROUTINES 
INTO 7000 OF FIELD 1 



JUMP TO 7777 Of 
FIELD I 



TRANSFER REST OF 
CALLERS ARGUMENTS 
TO OUT LIST 



CALL ROUTINE 
POINTED TO BY 7770 
V/ITH 7771 AS BLOCK 

FUDGE FACTOR 



RETURN TO CALLER 




DO I/O PRESET 



READ IN EDITOR FROM 

UNIT 100 



RESTORE EDITOR 
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routines 



c 



c 



SET READ ENTRY TO 

vmTB ENTRY FOR 

RETURN AND ARGU- 
MENT GETTING 





PLACE A Vmit IN- 
STRUCTION MINUS 
THE READ INSTRUCTSOrs* 
IN THE AC 








ADD A READ IN- 
STRUCTION TO THE 
AC, AND STORE IN 
KOPR FOR FUTURE USE 



CALL KFGET TO GET 
THE UNIT NUMBER 
1 



PLACE DRIVE 
NUMBER IN 
BITS 9-10 
OF THE 
CONTROLLER 




NEGATE AND STORE 
fN A COUNTER 











< 



ERROR RETRY ENTRY 



CLEAR STATUS 
REGISTER 



PLACE UNIT NUMBER 
IN BITS 0-2 OF THE 
TRACK ADDRESS 



GET MEMORY 
LOCATION AND 
PLACE FIELD BITS IN 
SITS 6-8 OF THE 
CONTROLLER 







CALL KFGET TO GET 
THE MEMORY 
LOCATION AGAIN 







MULTIPLY MEMORY 
LOCATION BY 400 
AND SUBTRACT 1 . 
THIS IS THE NEXT 
LOCATION OF 
TRANSFER. 



CALL KFGET TO GET 
THE BLOCK NUMBER. 
ADO THIS TO THE 
TRACK ADDRESS. 



SEND LOC 
CONTROL 


AT ION TO 
LER 


1 




SET Vv'ORD COU N T 
TO MINUS 400 






DO OPERA 
CORRECT 


TION ON 
[RACK 




CALL KFGET TO GET 
THE NUMBER OF 
BLOCKS TO DO 
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GO TO ERROR RETRY 
TO DO NEXT RECORD 



c 



READ 



> 



C 



WRITE 



3 



PLACE A WRITE-READ 
INSTRUCTION IN THE 

AC 



ADD A READ 
INSTRUCTION TO 
THE AC 



SAVE CORRECT DISK 
JNSTRUCTION IN 
DROPR 



CLEAR THE DISK 

STATUS m.nrw. 



IGNORE THE UNIT 
NUMBER AS ft IS 
MEANINGLESS 



GET THE CORE 
LOCATION OF THE 
TRANSFER 



6 
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SEND THl tXTENDED 
MEMORY BITS TO THE 
CONTiiOLLER 



SEND ADD«ESS-1 TO 
7751 OF FIELD 0 



I 

GET BLOCK NUMBER 



CONVERT TO WORD 
NUMBER (MULTIPLY BY 
400), AND SEND HIGH 
ORDER BITS TO THE 
CONTROLLER 



Gtr THE NUMBER OF 
BLOCKS TO READ IN 
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C 



c 



1 






PLACE A Wmi-m^f 1 
INSTRUCTION IN THE 1 
AC I 






h 




ADD A READ 5NSTRUC- j 
TION TO TH£ AC 



c 



> 



SAVE CORRECT DISK 
INSTRUCTION IN 
DFOPR 








HICK UP IHt UNIT 
NUM&IK 






SEND TO THE HIGH 
ORDER BITS OF THE 
CONTROLLER 






GET THE LOCATION 
OF THE TRANSFER 



5 




1 



SEND THE EXTENDED 
MEMORY BITS TO THE 
CONTROLLER 






SEND AODR!ir>S-l TO 
7751 OF FIELD 0 






GET THE BLOCK 
NUMBER 






CONVERT TO WORD 
NUMBER {MULTIPLY 
BY 400), AND SEND 
HIGH ORDER BITS TO 
CONTROLLER 






GET THE NUMBER OF 
BLOCKS TO READ IN 






CONVERT TO A WORD 
COUNT AND STORE 
IT IN 7750 OF THE 
FIELD 0 






REGRET THE 
ADDRESS Af 
THE OPERA! 
SPECIFIED B 


DISK 

^ID START 
ION AS 
Y DROPR 
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c 



3 



C 



READ 



J 



CALL TOO (RDE) 
EKROR REnjRN=RtAD 



c 



RETURN 



J 



c 







CALL TDO (WRI) 
ERROR RETURN»NULL 






CALL TDO (CHK) 
tKROR RETURN=»WRITE 







c 



RETURN 



J 



SET CHECKSUM TO 
7777 



GET CALLING 
INSTRUCTION 



ADD IN BIT It OF THE 
UNIT NUMBER 



STORE THE IIsiSTRUCTION 
IN TO PR 



{^^eTThTloom^ 



COMBINE THE HIGH 
ORDER BITS WITH BITS 
9-10 or- THE UNIT AND 
SEND TO CONTROLLER 
BYANAXO. ALSO 
'>LT THE EXTLNDED 
ADDRESS MODE 



\ 




GET THE BLOCK NUMBER 
AND PLACE IN 
TO PR + I 






SETUP A COUNT USING 
THE NUMBER OF BLOCKS 
TO DO 
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